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1- OBJECTIVES 


This paper describes the modeling 
features used In a steady-state heat 
transfer problem using SINDA/FLUINT. The 
problem modeled Is a 125 feet long, 3 Inch 
diameter pipe, filled with liquid Oxygen 
flow driven by a given pressure gradient 
The pipe Is fully Insulated In five sections. 
Three sections of 1 1nch thick spray-on 
foam and two sections of vacuum jacket 

The model evaluates friction, turns losses 
and convection heat transfer between the 
fluid and the pipe wall. There is conduction 
through the foam Insulation with 
temperature dependent thermal 
conductivity. The vacuum space Is model 
with radiation and gas molecular 
conduction, If present, In the annular gap. 
Heat Is transferred between the outer 
surface and surrounding ambient by 
natural convection and radiation; and, by 
axial conduction along the pipe and 
through the vacuum Jacket spacers and 
welded seal flanges. 




The model makes extensive use of 
SINDA/FLUINT basic capabilities such as the 
GEN option for nodes an conductors (to 
generates groups of nodes or conductors), 
the SIV option (to generate single, 
temperature varying conductors), the SIM 
option (for multiple, temperature varying 
conductors) and the M HX macros for fluids 
(to generate strings of lumps, paths and ties 
representing a dlabatlc duct). It calls 
subroutine CONTRN (returns the relative 
location In the G-array of a network 
conductor, given an actual conductor 
number) enabling an extensive manipulation 
of conductor (calculation an assignment of 
their values) with DO loops. 

Models like this Illustrate to the new an even 
to the old SINDA/FLUINT user, features of the 
program that are not so obvious or known, 
and that are extremely handy when trying to 
take advantage of both, the automation of the 
OATA headers and make surgical 
modifications to specific parameters of the 
thermal or fluid elements In the OPERATIONS 
portion of the model. 
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1. OBJECTIVES (CONT) 

1. SHARE SINDA/FLUINT EXPERIENCES WITH OTHER CODE USERS AT TFAWS 

2. APPLY TO PRACTICAL PROBLEMS IN THE ENGINEERING FIELD 

3. ESTABLISH AN INDUSTRY SOURCE OF TRICKS AND SHORT CUTS FOR USERS 

OF SINDA/FLUINT FI _ T~ 

4. ADDRESS SPECIALIZED TECHNIQUES NOT COVERED OR NOT SO OBVIOUS IN 
THE MANUAL 

5. PROVIDE FEEDBACK TO CODE DEVELOPER FOR FUTURE IMPROVEMENTS 


2. WHICH SINDA 


1. SINDA/FLUINT VERSION 2JS 


SYSTEMS I MPROV ED NUMERICAL DIFFERENCING ANALYZER 

AND FLUID INTEGRATOR, VERSION 2.5 DEVELOPED BY MARTIN MARIETTA 

ASTRONAUTICS GROUP, DENVER, COLORADO UNDER CONTRACT NAS9-18411. 

2. PRESENTATION FORMAT: 


Q 


CE) 


CD 


-HEADER OPTIONS DATA 
HEADER USER DATA, GLOBAL 
-HEADER USER DATA, pm 
- HEADER CONTROL DATA, GLOBAL 
HEADER CONTROL DATA, PIP* 
HEADER CONTROL DATA, Lm 
HEADER NODE DATA, PIPE 
HEADER CONDUCTOR DATA, pm 
HEADER FLOW DATA, LUOt, ru >-7732 
HEADER ARRAY DATA, Pm 
-HEADER OPERATIONS DATA 
'HEADER VARIABLES l,?m 
HEADER FLOGIC 0,x.m 
HEADER OUTPUT CALLS, PXPZ 
-HEADER FPROP DATA, 7732,31,0.0 
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3. LOX SUPPLY LINE 


L02 

SUPPLY TANK 




SOn INSULATED LINE 
LN2/VAC JACKET 
VENTURI 


VALVE 



BYPASS 





LOX LINE HARDWARE 


UNE 

Type 304L CRES 3 SS circular pipe schedule 80 

Length 225 ft 

Bypess length 14 ft 

Diameter (10) zar 

Wall thickness (W 


COMPONENTS 
90*elbows (qty 22) 
49* elbows (qty 2) 
Tees (qty 2) 
Venturiss (qty 2) 


LN2/VACUUM JACKET 
Length (long) 73 ft (from foot 42 to foot 11 4) 

Length (short) 27 ft (from foot 138 to foot 164 ) 

Diameter (OD) 6.625" 

Wall thickness 0.143" 

Annular gap 2£57" 

End caps thickness 0.25" 

11 sliding spacers (contact area*ei»"x<L50" and 6.0”x0.2S" 
4 48* (circular) spacers (contact area 2.1"k&25”, 1.05" tall ) 


,1.43” tall) 


FOAM INSULATION 
Type BX-250 SOF1 
Thickness 1" 

Length 41 ft (from foot 1 to foot 41) 

23 ft (form foot 115 to foot 137) 

61ft (from foot 165 to foot 225) 

14 ft (bypeso from foot 1 to foot 14) 

Thermal Conductivity kzO. 00259+0.031 ODOfTR) Btu/Hr-ft-°F 
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4. FEATURES 



HEADER OPTIONS DATA 

OUTPUT- VJl.OUT 

USSR1 - VJ1.US1 

USSR2 - VJ1.US2 



HEADER OPERATIONS DATA 



CALL LOTOS* 'LIUS’) 

CALL TISTABC LINS') 

CALL PTHTAB*.' LINS') 

CALL CNAP('PIPS', 'QDB',0) 
CALL TPRINT ( 'PIPS ' ) 


F 100 

r 

r 

r 

*— M71 

M 


WRITS (NUSSR1, 100) 

WRITS (NUSSR2, 100) 

FORMAT (IX, '8',/ 

• LSNGTH TLOX TPI PS TSURF PLOX QCON/RAD ' 

' QM0LC QCONV QUAD',/ 

' 12345678 ') 

WRITS (NUSSR2, 101) (1+ITSST) , LIHS.TL (1+ITSST) , T (1+ITSST) , 

T (1001+XTSST) , LINS .PL (1+ITSST) , QCOR, Q^OLC, QCONV, QRAD 


1. OUTPUT 

PROCESSOR PRINT RLE NAME. CAN BE ANY NAME. THIS IS 
WHERE THE OUTPUT FROM CALLS TO PLOMAP, TPRINT, 
prpmap, ETC. GOES TO AUTOMATICALLY. 

2. USERl, USER2 

USER AUXILIARY FILE NAMES. CAN BE ANY NAME.TO PRINT 
TO THEM USE THE write (NUSER1, 100) TO PRINT FOR 
EXAMPLE TO USERl FILE USING FORMAT 100. 

WRITE (NUSER2, 100) TO PRINT FOR EXAMPLE TO USERS 
RLE USING FORMAT 100. 
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4. FEATURES (CONT) 


d> 


HEADER USER DATA, GLOBAL 


ca 




PI > 
XPIPOD« 
XPXPID 
XP-ZVTX 

xsotod 

-XVJOD 

XVJZD 

XVJTK- 

CONV 

XLAMDA 

QCOR 

QMOLC 

QCOKV 

QUAD 

VLVCV 


3.1416 

3.3 

2.9 

0.3 

5.5 

6.625 

6.357 

0.134 

1.0 

0.0 

0.0 

0.0 

0.0 

0.0 

76.0 


Pip* OO (In) 

Pip* ID (in) 

Pip* thicks*** (in) 

SOTI OD 

V*c jack OD (in) 

Vac jack ID (in) 

Vac jack thickness (in) 

Mat conv (Btu/hr-£t2-P) 

Pr*« Path (ft) 

Hast trana by SOPI condor Jacket rad 
B*at trana by gas mol cond 
B*at trana by convection 
Boat trana by rad to aurroundinga 
SUGGESTED BX TIM GADNEX 


(£>fc 


HEADER OPERATIONS DATA 

DEPM0D PIPE 

XK2 - PI*(XPIPOD**2-XPIPID**2)/4./144./1.0 

XKL - XX2/2. 

XX3 - PI*(XVJCD**2-XVJID**2)/4./144./1.0 

XK4 m 2 . *PI*1 . 0/ALOG (XSQPCD/XPIPOD) $ POE 1" OP BX-250 

XElOa 2 . *PI* .25/12 . /ALOG (XVJOD/XPIPOD) $ RADIAL COND E N D CAP 


1. 


DEF,NE Pl OR ANY OTHER NA M E 
yy ATCH F0R PROGRAM RESERVED VARIABLES 
NAMES SUCH AS G100 (CONDUCTOR 100). VARIABLES 

J3FSLl*?F 0UGH ZTEST ARE AVAILABLE BY DEFAULT AND 
DO NOT HAVE TO BE EXPLICITLY SET. 


2 * ^ ER ENTERING DEFMOD PIPE, YOU CAN ENTER G’S, T’S, 

SS'i. OPERATIONS DATA BLOCK WITHOUT 

THE SUB-MODEL NAME IN FRONT OF IT. 

(EX: ENTER G101=10 . 0 INSTEAD OF PIPE.G101=10 . 0). 
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4. FEATURES (CONT) 


HEADER CONTROL DATA, GLOBAL 


7XS 

ABSZRO 
7 ATMOS 
SIGMA 
HLOOPS 


XNG — 

-459.67 

0.0 

1.0 



500 


HEADER FPROP DATA, 7732, SI, 0.0 



RGAS - 8314.34/31.9988 
TOOT - 154.6 '• 

POUT - 5.04X6 
ST - 0.0132 
TMXN ■ 70.0 


HEADER NODE DATA, PIPE 



-1000,-297.0,0.0 

-2000,-315.0,0.0 

-3000,70.0,0.0 


$ OIXO TANK 
$ LN2 JACKET 
9 AMBIENT 


1. UID 

UNIT SYSTEM IDENTIFIER. NOTICE THAT THE LOX LINE 
PROBLEM IS IN ENG UNITS, WHILE THE FLUID PROPERTIES 
IN THE HEADER FPROP DATA ARE GIVEN IN SI UNITS. 


2. ABSZRO 

VALUE OF ABSOLUTE ZERO IN USER’S TEMPERATURE 
UNITS 

ABSZRO - -460.0 ALLOWS USE OF TEMPERATURE IN °F 
INSTEAD OF °R. 
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4. FEATURES (CONT) 





GW 1, 225, 1, -200 .0/1.0 
GDI 301,14,1,-200.0,1.0 
GW 1001,41,1,70.0,1.0 
ODI 1042,73,1,70.0,1.0 
GW 1115,23,1,70.0,1.0 
GW 1138,27,1,70.0,1.0 
GW 1165,61,1,70.0,1.0 
GW 1301,14,1,70.0,1.0 
-1000,-297.0,0.0 
-2000,-315.0,0.0 
-3000,70.0,0.0 


6 PIPE 
$ BYPASS 

$ BX-250 SUBPACE 
6 VAC JACKET 
$ BX-250 SURFACE 
8 VAC JACKET 
3 BX-250 SURFACE 
$ BYPASS BX-250 SURFACE 
$ CRYO TANK 
3 ZN2 JACKET 
3 AMBIENT 


1* GEN 

ST?B™? L i£i , i5 , M5l^ ERATES 225 DIFFUSION nodes, 

mTcSSK 

THIS^SA STFanv CTjTTiSF VALUE IS IMMATERIAL SINCE 
2/ 3, S ETC TEADY state M0DEl - NODES WILL BE NAMED 1, 

2 * S^^NGLE LINE GENERATES 41 DIFFUSION NODES 

25 ^ 888 ^ 

100l" E WM ™003?CTC URFACE NOOES W,Li - BE NAMED 

SSSSeT 

CAPACITANCE IN A BOUNDARY NODE IS MEANINGLESS. 


3. 
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4. FEATURES (CONT) 


LUMP! 000 
(PLSN) 

(LOS SUPPLY TANK) 



Thermal network schematic of typical section of line with SOFI. 


4. FEATURES (CONT) 


LUMP 42 


LUMP 43 


JACKET 

WALL 


PATH 44 


LUMP 44 


LUMP 43 


PATH 46 0 O O 



o o o 


T3000 W T3000V T3000* T3000< 

Thermal network schematic of typical section of line with vacuum jacket 
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4. FEATURES (CONT) 



HEADER CONDUCTOR DATA, PIPE 

GEN 3001,225,1, 1,1,1001,1,0.0 


$ GAS MOLZC COND (SOME DUMMIES 


HEADER VARIABLES 1,PIPE 

C-CHSOC TOR GAS MOL COND 
7 DO 10 IIHST-0,72 

M TTEST=» (T (42+IT1ST) +T (1042+XTXST) ) /2 . 4-460 . 

XK6- (1 . 4+1 .)/ <1 . 4-1 .)*( (32 .2*1545 .)/ (8 . *PI*28 . *TTEST) )**. 5*1 . 
XK8-PI*XP IPOD/12 . *1 . 

CALL CONTBN ( ' PIPE ' , 3042+XTEST, JTEST) 

-M GLOBAL. G(JTEST)-XK6*XK7*XlC8*3600./778. 

XLAMDA-3 . *XK9/XK7* ( (PI*1545 . *TT2ST) / (8 . *32.2*28 .))**. 5 
-M10 IT (XLAMDA.LE . ( (XVJID-XPIPQD) /2 . /12 . ) ) GLOBAL . G (JTEST) -0 . 0 

C CHECK TOR GAS MOL COND 
T DO 20 ITEST-0,26 

M TTEST- (T (138+ITEST) +T (1138+ITEST) ) /2 . +460 . 

EK6- (1 . 4+1 . ) / (1 . 4-1 . ) * ( (32 . 2*1545 . ) / (8 . *PI*28 . *TTEST) ) ** . 5*1 . 
XX8«PI*XPXFOD/12 . *1 . 

M CALL CGOTBK ( ' PIPE ' , 3138+ITEST, JTEST) 

-M GLOBAL. G ( JTEST) >OCX6*EE7*EX8 *3 600. /77 8. 

ELAMDA-3 . *EKS/XK7* { (PI*1545 . *TTEST) / (8 . *32.2*28 .))**. 5 
— M20 XT (XLAMDA.LE . ( (XVJID-XPIPOD) /2 . /12 . ) ) GLOBAL. G (JTEST) “0 . 0 


1. GEN 

THIS SINGLE LINE GENERATES 225 CONDUCTION 
CONDUCTORS, STARTING WITH CONDUCTOR NUMBER 3001, 
IN INCREMENTS OF 1, CONNECTING NODE 1 1N INCREMENTS 
OF 1, TO NODE 1001 IN INCREMENTS OF 1, WITH A 
CONDUCTOR VALUE OF 0.0. CONDUCTORS WILL BE NAMED 
3001, 3002, 3003, ETC. 

THESE CONDUCTORS REPRESENT GAS MOLECULAR 
CONDUCTION IN THE NEAR-VACUUM SPACE, AND THEIR 
VALUE ARE RE-COMPUTED (FROM 0.0) TO SOMETHING ELSE 
IN THE HEADER VARIABLES 1 BLOCK BASED ON SOME 
LOGIC PROGRAMMED THERE. 

NOTICE THAT THERE ARE TWO DO LOOPS OF 73 AND 27 FOR 
A TOTAL OF ONLY 100 CONDUCTORS TO BE COMPUTED. THE 
OTHER 125 ONES WILL REMAIN AS 0.0. WHILE THEY ARE NOT 
NEEDED, THEY WERE LEFT THERE AS DUMMIES FOR 
FUTURE UTILIZATION. 
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4. FEATURES (CONT) 


CD 


HEADER CONDUCTOR DATA, PIPE 

I— SIN 2001,41,1, 1,1, 1001, 1,A4,K4 

SIM 2115, 23, 1,115, 1,1115, 1,A4,K4^ 

SIM 2165, 61,1,165,1, 1165, 1,A4,K4 
■— SIM 2301,14, 1,301,1,1301,1,A4,X4 

HEADER ARRAY DATA, PIPE 
,C X SOri BX-250 

4, -460.0, 0.00259 

800.0, 0 .031696, ZND 

HEADER OPERATIONS DATA 

XX4 ■ 2 . *PI*1 . O/ALOG (XSOFQD/XFIPOD) 


$ BX-250 RADIAL COND 
$ BX-250 RADIAL COND 
$ BX-250 RADIAL COND 
$ BX-250 RADIAL COND 


$ fOR 1" OX BX-250 


1. SIM 

TO INPUT ONE OR MORE TEMPERATURE-VARYING 
CONDUCTORS. 

SINDA COMPUTES THE CONDUCTION CONDUCTOR K*A/X 
BY GETTING K FROM ARRAY 4 ( T VERSUS K), AND 
CONSTANT K4 (A/X) AS XK4, COMPUTED IN THE HEADER 
OPERATIONS BLOCK, AND MULTIPLYING THE TWO. 


1. CONTRN 

THIS ROUTINE RETURNS THE RELATIVE LOCATION IN THE 
G-ARRAY OF A NETWORK CONDUCTOR, GIVEN THE ACTUAL 
CONDUCTOR NUMBER. 

THE LOX LINE MODEL MADE EXTENSIVE USE OF THIS 
ROUTINE IN ORDER TO UTILIZE DO LOOPS TO RECALCULATE 
THE VALUES OF CONDUCTORS WITHIN SECTIONS OF THE 
LINE. 

2. NOTICE THAT THE RADIATION CONDUCTOR CALCULATION 
INCLUDES sigma (0.1714E-8), WHILE IT IS DEFINED AS 1.0 IN 
THE HEADER CONTROL DATA, GLOBAL BLOCK. THE DEFAULT 
VALUE (IF NOT DEFINED) IS 0.1714E-8. 

ONE COMMON ERROR IS TO CALCULATE A CONDUCTOR 
WITH SIGMA, BUT NOT DEFINING IT AS 1.0 IN THE HEADER 
CONTROL DATA BLOCK. THIS, OF COURSE, RESULTS IN A 
CONDUCTOR THAT IS MULTIPLIED TWICE BY SIGMA. 
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4. FEATURES (CONT) 


HEADER FLOW DATA, LINE, FID=7732 


LU DEP, 

PA DEP, 

LU PLEN, 1000, 
"M HX,1,D, 1,1, 
N HX,2, 0,12,12 
N HX, 3, 0,13, 13 
M HX, 4,0, 15, 13 
M HX, 5,0,16, 16 
N HX, 6,0,18,18 
-M HX, 7,0, 19, 19 


XL*0 . 0 , PL-100 . 0 , TL--297 . 0 
OH— 2. 9/12., UPP— 0.5 
PL-400.0 

1, PIPX . 1, 1000, NSXG-11, TLZNT-11 
, 12 , PZPX . 12 , 11 , HSZG-1 , 7LXHT-1 . 
, 13, PIPX .13,12, NSEQ-2, TLENT-2 . 

> , 15 , PIPE . 15 , 14 , HSXG-1 , TZXHT-1 . 
,16,PIPX.16,15,NSXG*2,TLZNT-2. 
, 18, PIPE. 18,17, NSSG-1,TLZNT=1. 
,19, PIPE. 19, 18 , NSEQ-2 , TLZNT— 2 . 



. , OHS— 2 . 9/12 
, OHS— 2.9/12. 
, OHS— 2.9/12. 
, OHS— 2.9/12. 
, OHS— 2.9/12. 
, OHS— 2.9/12. 
, OHS— 2 . 9/12 . 


. , LU— JUMC, PA— STUBS 
, LU-JUNC, PA-LOSS , PIC- . 35 
, LU-JUNC, PA-STUBE 
, LU-JUNC, PA-LOSS, F1C-. 35 
, LU—JTJNC , PA— STUBS 
, LU-JUNC, PA— LOSS , PK— . 35 
, LU— JUNC, PA— STUBS 


J- M HX, 43,0, 201,201, 201, PIPE. 201, 200,NSEG»1, TLXNT— 1 . , OHS— 2 . 9/12 . , LU-JUNC, PA-LOSS, FKf 


HEADER FLOGIC 0, LINE 


© 


C CONVERT CV TO PK POR VALVES AND VENTURIES 

* PK201-3.0B7*(AP201/VLVCV)**2 $ VENTURI 


1. HX MACRO 

STnlNG OF ONE OR MORE LUMPS, 

/ P hVa H tVv^uPFIJI E KI SENTING a diabatic DUCT 
(HEAT EXCHANGER SEGMENT}. 

CONNECTOR*™ PA “ STDBE AND PA “ 1083 TYPE OF 

2 ‘ SHIPIMg .?K*5r2S*F COMMAND TO DEFINE 
DEFAULTS FOR MACROS ??? 

3 - S2MESE THE losses were specified by cv 

COEFFICIENT. THIS HANDY EQUATION. GIVEN IN THE 
SINDA MANUAL, CONVERT CVS TOfk'S 
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5. PROGRAM LISTING 


HEADER OPTIONS DATA 
TITLE OSTB LOX TRANSFER LINE 
OUTPUT - VJ1 . OUT 
USER1 - VJ1.US1 
USER2 - VJ1.US2 
RSO - VJ1.RSI 

HEADER USER DATA, GLOBAL 


PI 

-3-1416 


XPIPOD 

-3.5 

$ 

Pi pe OD (in) 

XPIPID 

-2.3 

$ 

Pipe ID (in) 

XPIPTK 

-0.3 

$ 

Pipe thickness (in) 

XSOFOD 

-5.5 

s 

SOFI OD 

XVJOD 

-6.625 $ 

Vac jack OD (in) 

XVJID 

-6.357 $ 

Vac jack ID (in) 

XVJTK 

-0.134 

$ 

Vac jack % thickness (in) 

CONV 

-1.0 

$ 

Hat conv * (Btu/hr-ft2-F) 

XLAMDA 

-0.0 

$ 

Free Path (ft) 

QCOR 

-0.0 

$ 

Heat trans by SOFI cond or Jacket rad 

QMOLC 

-0.0 

$ 

Heat trans by gas mol cond 

QCONV 

-0.0 

$ 

Heat trans by convection 

QRAO 

-0.0 

$ 

Heat trans by rad to surroundings 

VLVCV 

-76.0 

$ 

SUGGESTED BY TIM GADNEY 


HEADER CONTROL DATA, GLOBAL 
UID - ENG 
ABSZRO - -459.67 
PATHOS -0.0 
SIGMA - 1.0 
N LOOPS - 500 

HEADER CONTROL DATA, PIPE 
EBALSA- 0.001 

HEADER CONTROL DATA, LINE 
REBALF - 0.001 


HEADER NODE DATA, PIPE 

C PIPE X SECTION IS pi*od*thick/144 ft2, EACH SEGMENT 1 ft LONG 


GEN 1,225,1,-200.0,1.0 
GEN 301,14,1,-200.0,1.0 
GEN 1001,41,1,70.0,1.0 
GEN 1042,73,1,70.0,1.0 
GEN 1115,23,1,70.0,1.0 
GEN 1138,27,1,70.0,1.0 
GEN 1165,61,1,70.0,1.0 
GEN 1301,14,1,70.0,1.0 
-1000,-297.0,0.0 
-2000,-315.0,0.0 
-3000,70.0,0.0 


$ PIPE 
$ BI-PASS 
$ BX-250 SURFACE 
$ VAC JACKET 
$ BX-250 SURFACE 
$ VAC JACKET 
$ BX-250 SURFACE 
$ BI-PASS BX-250 SURFACE 


$ CRYO TANK 
$ LN2 JACKET 

$ AMBIENT 


HEADER CONDUCTOR DATA, PIPE 

SIV 1, 1000,1, A2,K1 $ 

SIM 2,224,1,1,1,2,1,A2,K2 $ 

SIM 300, 1,1, 194,1, 301, 1,A2,K2 
SIM 301, 13, 1,301,1, 302, 1,A2,K2 
SIM 314, 1,1, 314,1, 205, 1,A2,K2 
SIM 1042, 72, 1,1042,1, 1114, 1,A2,K3$ 
SIM 1138, 26, 1,1138, 1, 1164, 1,A2,K3$ 
SIM 2001, 41, 1,1,1, 1001, 1,A4,K4 
GEN-2042,73,1,42,1,1042,1,0.0 
SIM 2115,23, 1,115,1, 1115, 1,A4,K4 $ 


AXIAL COND TO TANK 
PIPE AXIAL COND 

$ UP PIPE-TO-BI -PASS AXIAL COND 
$ PIPE BI-PASS AXIAL COND 
$ LW PIPE-TO-BI -PASS AXIAL COND 
JACKET AXIAL COND 
JACKET AXIAL COND 

$ BX-250 RADIAL COND 
S VAC JACKET RAD 
BX-250 RADIAL COND 
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GEN-2138, 27, 1,138, 1,1138, 1,0.0 $ VAC JACKET RAD 

SIM 2165, 61, 1,165, 1,1165, 1,A4,K4 $ BX-250 RADIAL COND 

SIM 2301, 14, 1,301,1, 1301, 1,A4,K4 $ BX-250 RADIAL COND 

GEN 3001,225,1, 1,1,1001,1,0.0 $ GAS MOLEC COND (SOME DUMMYS) 

GEN 4001,225,1,1001,1,3000,0,0.0 $ BX-250 6 JACKET CONV TO AMB 
GEN 4301, 14,1,1301,1,3000,0,0.0 $ BX-250 BI-PASS CONV TO AMB 
GEN-5001,225,1,1001,1,3000,0,0.0 $ BX-250 4 JACKET RAD TO AMB 
GEN-5301, 14,1,1301,1,3000,0,0.0 S BI-PASS BX-250 RAD TO AMB 
C SUPPORT CONDUCTORS 

SIM 6042,1,1, 42,1, 1042, 1,A2,K10 $ END CAP RADIAL COND 
SIM 6045,1,1, 45,1, 1045, 1,A2,K11 $ COND SLIDING SPACER 

SIM 6048,1,1, 48,1, 1048, 1,A2,K11 $ COND SLIDING SPACER 

SIM 6049,1,1, 49,1, 1049, 1,A2,K11 $ COND SLIDING SPACER 

SIM 6051,1,1, 51,1, 1051, 1,A2,K11 $ COND SLIDING SPACER 

SIM 6052,1,1, 52,1, 1052, 1,A2,K10 $ END CAP RADIAL COND 

SIM 6053,1,1, 53,1, 1053, 1,A2,K10 $ END CAP RADIAL COND 

SIM 6054,1,1, 54,1, 1054, 1,A2,K11 $ COND SLIDING SPACER 

SIM 6058,1,1, 58,1, 1058, 1,A2,K11 $ COND SLIDING SPACER 

SIM 6066,1,1, 66,1, 1066, i,A2,K13 $ COND FIXED ANCHOR WING 

SIM 9066,1, 1, 66, 1, 3000, 6, A2, K14 $ COND FIXED ANCHOR TO GROUND 

SIM 6073,1,1, 73,1, 1073, 1,A2,K11 $ COND SLIDING SPACER 

SIM 6075,1,1, 75,1, 1075, 1,A2,K11 $ COND SLIDING SPACER 

SIM 6077,1,1, 77,1, 1077, 1,A2,K11 $ COND SLIDING SPACER 

SIM 6081,1,1, 81, 1, 1081, 1, A2,K11 $ COND SLIDING SPACER 

SIM 6085,1,1, 85,1, 1085, i,A2,Kll $ COND SLIDING SPACER 

SIM 6093,1,1, 93,1, 1093, 1,A2,K11 $ COND SLIDING SPACER 

SIM 6097,1,1, 97,1, 1097, 1,A2,K11 $ COND SLIDING SPACER 

SIM 6099,1,1, 99,1, 1099, 1,A2,K11 $ COND SLIDING SPACER 

SIM 6101, 1,1, 101,1, 1101, l,A2,Kll $ COND SLIDING SPACER 
SIM 6109, 1,1, 109,1, 1108, 1,A2,K11 $ COND SLIDING SPACER 
SIM 6114, 1,1, 114,1, 1114, 1,A2,K10 $ END CAP RADIAL COND 
SIM 6138,1, 1,138,1, 1138, 1,A2,K10 $ END CAP RADIAL COND 
SIM 6145, 1,1, 145,1, 1145, 1,A2,K12 $ COND 45 DEG SPACER 

SIM 6147, 1,1, 147,1, 1147, 1,A2,K12 $ COND 45 DEG SPACER 

SIM 6151, 1,1, 151,1, 1151,1, A2,K11 $ COND SLIDING SPACER 
SIM 6153, 1,1, 153,1, 1153, 1,A2,K11 $ COND SLIDING SPACER 
SIM 6155, 1,1, 155,1, 1155,1, A2,K12 $ COND 45 DEG SPACER 

SIM 6157, 1,1, 157,1, 1157, 1,A2,K12 $ COND 45 DEG SPACER 

SIM 6161, 1,1, 161,1, 1161, 1,A2,K11 $ COND SLIDING SPACER 
SIM 6163, 1,1, 163,1, 1163, 1,A2,K11 $ COND SLIDING SPACER 
SIM 6164, 1,1, 164,1, 1164, 1,A2,K10 $ END CAP RADIAL COND 
C UNCOMMENT NEXT TWO LINES FOR LN2 CASES 
C GEN 7042,73,1,42,1,2000,0,1000.0 $ LINE TO LN2 

C GEN 7138,27,1,138,1,2000,0,1000.0$ LINE TO LN2 

C GEN 8042, 73, 1,2 000, 0,1042, 1,1000. 5 JACKET TO LN2 

C GEN 8138, 27, 1,2 000, 0,1138, 1,1 000. 8 JACKET TO LN2 

HEADER FLOW DATA, LINE, FID-7732 
LU DEF, XL-0. 0, PL-100. 0,TL— 297.0 

PA DEF, DH— 2. 9/12 . , UPF-0.5 

LU PLEN, 1000, PL-400.0 

M HX, 1, D, 1, 1,1, PIPE.l, 1000, NSEG-11, TLENT-1 1 . , DHS-2 .9/12., LU- JUNC , P A-ST UBE 
M HX, 2, D, 12, 12, 12, PIPE. 12, 11, NSEG-1, TLENT-1., DHS-2. 9/12., LU-JUNC, PA-LOSS, FK-. 35 
M HX, 3, D, 13, 13, 13 , PIPE. 13, 12, NSEG-2 , T LENT-2 . , DHS-2 . 9/12 . , LU-JUNC, PA-STUBE 
M HX, 4, D, 15,15, 15, PIPE. 15,14, NSEG-1 , TLENT-1 . , DHS-2 . 9/12 . , LU-JUNC, PA-LOSS , FK- . 35 
M HX,5, D,16,16,16, PIPE. 16, 1 5, NSEG-2 , T LENT-2 . , DHS-2 .'9/12 . , LU-JUNC, PA-STUBE 
M HX, 6,D,18,18, 18, PIPE. 18, 17, NSEG-1, TLENT-1., DHS-2. 9/12. , LU-JUNC, PA-LOSS, FK-. 35 
M HX, 7, D, 19, 19, 19, PIPE. 19, 18, NSEG-2 , T LENT-2 . , DHS-2 . 9/12 . , LU-JUNC, PA-STUBE 
M HX, 8, D, 21, 21, 21, PIPE. 21, 20, NSEG-1, TLENT-1., DHS-2. 9/12., LU-JUNC, PA-STUBE 
M HX, 9, D, 22 , 22, 22 , PIPE. 22,21, NSEG-1 , TLENT-1 . , DHS-2 . 9/12 . , LU-JUNC, PA-LOSS, FK-0 . 0 
M HX, 10,D,23,23, 23, PIPE. 23,22, NSEG-4, TLENT-4 . , DHS-2. 9/12., LU-JUNC, PA-STUBE 
M HX, 11, D, 27, 27, 27, PIPE. 27, 26, NSEG-1, TLENT-1., DHS-2. 9/12., LU-JUNC, PA-LOSS, FK-. 35 
M HX, 12, D, 28, 28, 28, PIPE. 28, 27, NSEG-5, TLENT-5. , DHS-2. 9/12., LU-JUNC, PA-STUBE 
M HX, 13, D, 33, 33, 33, PIPE. 33, 32, NSEG-1, TLENT-1., DHS-2. 9/12., LU-JUNC, PA-LOSS, FK-. 35 


217 



M HX, 14, 0,34,34, 34, PIPE. 34, 33, NSEG-2, TLENT-2 ., DHS-2 . 9/12., LO-JUNC, PA-STUBE 
M HX, 15, 0,36, 36, 36, PIPE. 36, 35, NSEG-1, TLENT-1. . DHS-2. 9/12., LO-JUNC, PA-LOSS, FK-. 35 
M HX, 16, D, 37, 37, 37, PIPE. 37, 36, NSEG-4,TLENT-4., DHS-2. 9/12., LO-JUNC, PA-STUBE 
M HX, 17,D,41, 41, 41, PIPE. 41, 40, NSEG-1 , TLENT-1 . , DHS-2. 9/12., LO-JUNC, PA-LOSS, FK-. 35 
M HX, 18, D, 42, 42, 42, PIPE. 42, 41, NSEG-72 , TLENT-72 . , DHS-2 . 9/12 . , LU-JUNC, PA-STOBE 
M HX, 19, 0,114,114, 114, PIPE. 114, 113, NSEG-1, TLENT-1., DHS-2. 9/12., LO-JUNC, PA-LOSS, FK-. 35 
M HX, 20, D, 115, 115, 115, PIPE. 115, 114, NSEG-7 , TLE NT-7 . , DHS-2. 9/12., LO-JONC, PA-STUBE 
M HX, 21, D, 122, 122, 122, PIPE. 122, 12 1 , NSEG-1 . TLENT-1 . , D HS- 2 .9/12., LO-JUNC , PA-LOSS , FK-.35 
M HX, 22, D, 123, 123, 123, PIPE. 123, 122, NSEG-6 , TLENT-6 . , DHS-2. 9/12., LO-JUNC, PA-STUBE 
M HX, 23, D, 129, 129, 129, PIPE. 129, 128, NSEG-1, TLENT-1., DHS-2. 9/12., LO-JUNC, PA-LOSS, FK-. 35 
M HX, 24, 0,130,130, 130, PIPE. 130, 129, NSEG-7 , TLENT-7 . , DHS-2. 9/12., LU-JONC, PA-STOBE 
M HX, 25 , D, 137 , 137 , 137 , PIPE . 137 , 136, NSEG-1 , TLENT-1 . , DHS-2 . 9/12 . , LO-JUNC, PA-LOSS, FK-. 35 
M HX, 26,0,138,138, 138, PIPE. 138, 137, NSEG-8, TLENT-1 ., DHS-2. 9/12 ., LO-JUNC, PA-STOBE 
M HX, 27, D,146,146, 146, PIPE. 146, 145, NSEG-1 , TLENT-1 ., DHS-2 . 9/12 ., LO-JUNC, PA-LOSS, FK-. 19 
M HX, 28, 0,147,147, 147, PIPE. 147, 146, NSEG-9,TLENT-9., DHS-2. 9/12., LO-JONC, PA-STOBE 
M HX, 29, 0,156,156, 156, PIPE. 156, 155, NSEG-1, TLENT-1., DHS-2. 9/12., LO-JONC, PA-LOSS, FK-. 19 
M HX, 30, D, 157 , 157,157 , PIPE. 157, 156, NSEG-7 , TLENT-7 . , DHS-2. 9/12 . , LO-JONC, PA-STOBE 
MHX, 31, D, 164, 164, 164, PIPE. 164, 163, NSEG-1 , TLENT-1 . , DHS-2 . 9/12 . , LO-JONC, PA-LOSS, FK- . 35 
M HX, 32,0,165, 165, 165, PIPE. 165^164, NSEG-7 , TLENT-7 . , DHS-2 . 9/12 . , LO-JONC, PA-STUBE 
M HX, 33, D, 172, 172, 172, PIPE. 172, 171, NSEG-1, TLENT-1., DHS-2. 9/12., LO-JONC, PA-LOSS, FK-. 35 
MHX,34, 0,173,173, 173, PIPE. 173, 172, NSEG-1 , TLENT-1 . , DHS-2 . 9/ 1 2 . , LO-JONC , PA-STOBEBE 
M HX, 35, 0,174,174, 174, PIPE. 174, 173, NSEG-1, TLENT-1., DHS-2. 9/12., LO-JONC, PA-LOSS, FK-. 35 
M HX, 36, D, 175, 175, 175, PIPE. 175, 174, NSEG-2, TLENT-2., DHS-2. 9/12., LO-JONC, PA-STOBE 
M HX, 37, D, 177, 177, 177, PIPE. 177, 176, NSEG-1, TLENT-1., DHS-2. 9/12., LO-JONC, PA-LOSS, FK-. 35 

M HX, 38, D, 178, 178, 178, PIPE. 178, 177, NSEG-1 0, TLENT-10. , DHS-2. 9/12., LO-JONC, PA-STOBE 
M HX, 39, D, 188, 188, 188, PIPE. 188, 187, NSEG-1, TLENT-1., DHS-2. 9/12., LO-JONC, PA-LOSS, FK-. 35 

M HX, 40, D, 189, 189, 189, PIPE. 189, 188, NSEG-6, TLENT-6., DHS-2. 9/12., LO-JONC, PA-STOBE 
C STRAIGHT SPLIT 

M HX, 41, D, 195, 195, 195, PIPE. 195, 194, NSEG-1, TLENT-1., DHS-2. 9/12., LO-JONC, PA-LOSS, FK-. 15 
M HX, 42, D, 196, 196, 196, PIPE. 196, 195, NSEG-5 , TLENT-5 . , DHS-2. 9/12., LO-JONC, PA-STOBE 
C VENTURI 

M HX, 43, D, 201 , 201 , 201 , P IPE. 201 , 200, NSEG-1 , TLENT-1 . , DHS-2 . 9/12 . , LO-JONC, PA-LOSS, FK-0 . 0 
C VALVE 

M HX, 44 , D, 202 , 202 , 202 , PIPE . 202 , 201 , NSEG-2 , TLENT-2 . , DHS-2 . 9/12 . , LO-JONC, PA-STOBE 
M HX, 45, D, 204, 204, 204, PIPE. 204, 203, NSEG-1, TLENT-1., DHS-2. 9/12., LO-JONC, PA-LOSS, FK-. 15 

M HX, 4 6, D, 2 05, 2 05, 205, P IPE .205,204, NSEG-4 , TLENT-4 . , DHS-2 . 9/12 . , LO-JONC, PA-STOBE 
M HX, 47 , D, 209, 209, 209 , PIPE. 209, 208, NSEG-1 , TLENT-1 . , DHS-2. 9/12 . , LO-JONC, PA-LOSS, FK-. 35 
M HX, 48, D, 210, 210, 210, PIPE. 210, 209, NSEG-6, TLENT-6., DHS-2. 9/12., LO-JONC, PA-STOBE 
M HX, 49, D, 216, 216, 216, PIPE. 216, 215, NSEG-1, TLENT-1., DHS-2. 9/12., LO-JONC, PA-LOSS, FK-. 35 
M HX, 50, 0,217,217, 217, PIPE. 217, 216, NSEG-1, TLENT-1., DHS-2. 9/12., LO-JONC, PA-LOSS, FK-. 35 
M HX, 51, D, 218, 218, 218, PIPE. 218, 217, NSEG-3 , TLENT-3 . , DHS-2. 9/12., LO-JONC, PA-STOBE 
M HX, 52, D, 221 , 221 , 221 , PIPE . 221 , 220, NSEG-1 , TLENT-1 . , DHS-2 . 9/12 . , LO-JONC, PA-STOBE 
M HX, 53, D, 222, 222, 222, PIPE. 222, 221, NSEG-1, TLENT-1., DHS-2. 9/12., LO-JONC, PA-LOSS, FK-0.0 
M HX, 54 , D, 223 , 223, 223 , PIPE. 223, 222 , NSEG-1 , TLENT-1 . , DHS-2 . 9/12 . , LO-JONC, PA-STOBE 
H HX, 55, D, 224, 224, 224, PIPE. 224, 223, NSEG-1, TLENT-1., DHS-2. 9/12., LO-JONC, PA-LOSS, FK-. 35 
C END OF LOX LINE 

M HX, 56, C, 225, 225, 225, PIPE. 225, 224, 2000, NSEG-1, TLENT-1., DHS-2. 9/12., LO-JONC, PA-STOBE 
C TORN SPLIT 

M HX, 57 , D , 301 , 301 , 301 , PIPE . 301 , 194 , NSEG-1 , TLENT-1 . , DHS-2 . 9/12 . , LO-JUNC, PA-STOBE 
M HX, 58 , D, 302 , 302, 302 , PIPE . 302 , 301 , NSEG-1 , TLENT-1 . , DHS-2 . 9/12 . , LO-JONC, PA-LOSS, FK-. 35 

M HX, 59, D,303,303, 303, PIPE. 303, 302, NSEG-6, TLENT-6., DHS-2. 9/12., LO-JUNC, PA-STOBE 
C VENTORY 

M HX, 60, D, 309, 309, 309, PIPE. 309, 308, NSEG-1, TLENT-1., DHS-2. 9/12., LO-JONC, PA-LOSS, FK-0.0 

MHX,62,D, 310, 310, 310, PIPE. 310, 309, NSEG-2 , TLENT-2 . , DHS-2 . 9/ 1 2 . , LO-JONC , PA-STOBE 
M HX, 63, D, 312, 312, 312, PIPE. 312, 311, NSEG-1, TLENT-1., DHS-2. 9/12., LO-JONC, PA-LOSS, FK-. 35 

M HX, 64, D, 313, 313, 313, PIPE. 313, 312, NSEG-1, TLENT-1., DHS-2. 9/12., LO-JONC, PA-STOBE 
M HX, 65, C, 314, 314, 314, PIPE. 314, 313, 204, NSEG-1, TLENT-1., DHS-2. 9/12., LO-JONC, PA-LOSS, FK-. 70 
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LU PLEN, 2000 


$ EXAUST 

HEADER ARRAY 

DATA, PIPE 


C K FOR AISI 

304L SS (BTU/HR-FT-F) 

2, 

-400,0, 

2.0 


-350,0, 
-300.0, 5.1 

4.0 


-250.0, 

6.0 


-150.0, 
-50.0, 8.0 

7.0 


100.0, 9.0, 

END 

C K SOFI BX-250 


4, 

-460.0, 

0.00259 


800.0, 0.031696, END 


HEADER USER DATA, PIPE 

1 - 0.0 

2 - 0.0 

3 -0.0 

4 -0.0 

5 -0.0 

6 - 0.0 

7 -10. E-5*. 01934*144. 

8 - 0.0 

9 -.0228/3600. 

10 - 0.0 $ 

11 - 0.0 8 

12 - 0.0 $ 

13 -0.0 $ 

14 -0.0 $ 


$ IN-HG >PSIA 

$ PIPE SURFACE AREA 
$ GN2 gas vise (LBM/FT-SEC) 8250 R 
A/X FOR RADIAL COND END CAP 
A/X FOR COND SLIDING SPACER 
A/X FOR COND 45 DEG SPACER 
A/X FOR COND FIXED ANCHOR WING 
A/X FOR COND FIXED ANCHOR TO GROUND 


HEADER OPERATIONS DATA 
BUILD PIPE, PIPE 
DEFMOD PIPE 

XX2 - PI* <XPIPOD**2-XPIPID**2)/4./144./1.0 
XXI - XK2/2 . 

XK3 - PI* (XVJOD**2-XVJID**2) /4./144./1.0 

XX4 - 2.*PI*1.0/ALOG(XSOFOD/XPIPO15) FOR 1" OF BX-250 

XK10- 2 . *PI* . 25/12. /ALOG (XV JOD/XP IPOD) $ RADIAL COND END CAP 

XXII- 6.* (.25+. 5) /l. 43/12. $ COND SLIDING SPACER 

XK12- 4. *.25*2. 1/1. 05/12. $ COND 45 DEG SPACER 

XX13- 6. *.25/1. 43/12. $ COND FIXED ANCHOR WING 

XX14- 8. *.5/9. 56/12. $ COND FIXED ANCHOR TO GROUND 


F DO 10 ITEST-0, 40 

M CALL CONTRN ( 'PIPE' , 4001+ITEST, JTEST) 

M CALL CONTRN (’ PIPE ' , 5001+ITEST,KTEST) 

C SOFI CONVECTION TO AMB 

H GLOBAL. G (JTEST) -CONV*PI *XSOFOD/12 .*1.0 

C SOFI RADIATION TO AMB 

M10 GLOBAL. G(KTEST) -. 1714E-8* . 9*1 . *PI*XSOFOD/12. *1. 0 


F DO 20 ITEST-0, 72 

M CALL CONTRN (• PIPE * , 2042+ITEST, JTEST) 

M CALL CONTRN (' PIPE ' , 4042+ITEST,KTEST) 

M CALL CONTRN (• PIPE * , 5042+ITEST, LTEST) 

C VAC JACK INTERNAL RAD 

M GLOBAL. G (JTEST) -. 171 4E-8* . 18*1. *PI*XPIPOD/12. /1 . 0 

C VAC JACK CONV TO AMB 

M GLOBAL. G(KTEST) -CONV*PI*XVJOD/12. *1 . 0 

C VAC JACK RAD TO AMB 

M20 GLOBAL. G(LTEST) -. 1714E-8*.90*1.*PI*XVJOD/12.*1.0 


F DO 30 ITEST-0, 22 
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M CALL CONTRN ('PIPE' , 41 15+ITEST, JTEST) 

M CALL CONTRN ('PIPE' , 5115+ITEST,KTEST) 

C SOFI CONVECTION TO AMB 

M GLOBAL . G < JTEST) -CONV* P I *XSOFOD / 12 . * 1 . 0 

C SOFI RADIATION TO AMB 

M30 GLOBAL. G(KTEST) -.1714E-8*.9*i.*PI*XSOFOD/12.*1.0 
F DO 40 ITEST-0, 26 

M CALL CONTRN ('PIPE' , 2138+ITEST, JTEST) 

M CALL CONTRN (' PIPE ’, 4138+ITEST, KTEST) 

M CALL CONTRN (' PIPE ', 5138+ITEST, LTEST) 

C VAC JACK INTERNAL RAD 

M GLOBAL. G (JTEST) -. 1714E-8* .18*1. *PI *XPIPOD/12 . /I . 0 

C VAC JACK CONV TO AMB 

M GLOBAL. G(KTEST)-CONV*PI*XVJOD/12. *1.0 

C VAC JACK RAD TO AMB 

M40 GLOBAL. G (LTEST) -. 1714E-8* . 9*1 . *PI*XVJOD/12. *1 .0 

F DO 50 I TEST-O, 60 

M CALL CONTRN ('PIPE' , 4165+ITEST, JTEST) 

M CALL CONTRN ('PIPE', 51 65+ITEST,KTEST) 

C SOFI CONVECTION TO AMB 

M GLOBAL . G ( JTEST ) -CONV *PI*XSOFOD/12.*1.0 

C SOFI RADIATION TO AMB 

M50 GLOBAL. G (KTEST) -. 1714E-8* . 9*1 . *PI*XSOFOD/12 .*1.0 

F DO 60 ITEST-0, 13 

M CALL CONTRN (’ PIPE 4301+ITEST, JTEST) 

M CALL CONTRN (' PIPE ' , 5301+ITEST, KTEST) 

C BI-PASS SOFI CONVECTION TO AMB 
M GLOBAL. G (JTEST) -CONV*PI *XSOFOD/12 .*1.0 

C BI-PASS SOFI RADIATION TO AMB 

M60 GLOBAL. G (KTEST) -.1714E-8*. 9*1. *PI*XSOFOD/12. *1.0 

BOILDF PIPE, LINE 
CALL FASTIC 
CALL LMPTAB ('LINE') 

CALL TIETAB CLINE') 

CALL PTHTAB ('LINE') 

C CALL QMAP ('PIPE', 'QDB’,0) 

CALL TP RI NT ('PIPE') 

F WRITE (NOSER1, 100) 

F WRITE (NDSER2, 100) 

F100 FORMAT (IX, '8',/ 

J> < LENGTH TLOX tpipe TSURF PLOX QCON/RAD' 

F . ' QMOLC QCONV QRAD' , / 

F .'12345678') 

F DO 70 ITEST-0, 148 

M CALL CONTRN (' PIPE ' , 2001+ITEST, JTEST) 

M CALL CONTRN (' PIPE ' ,3001+ITEST, KTEST) 

M CALL CONTRN (' PIPE ' , 4001+ITEST, LTEST) 

M CALL CONTRN (• PIPE • , 5001+ITEST,MTEST) 

M CALL QMETER (T (1+ITEST), T( 1001+ITEST), GLOBAL. G (JTEST), QCOR) 

M IF (1+ITEST.GT. 41. AND. 1+1 TEST . LT . 1 1 4 ) THEN 

M CALL RDTNQS (T (1001+ITEST) ,T (1+ITEST) , GLOBAL. G (JTEST) ,QCOR) 

M CALL QMETER (T (1+ITEST) , T (1001+ITEST) , GLOBAL. G (KTEST) , QMOLC) 

M ELSE IF (1+ITEST.GT. 136. AND. 1+ITEST. LT.165)THEN 

M CALL RDTNQS (T (1001+ITEST) ,T (1+ITEST), GLOBAL. G( JTEST), QCOR) 

M CALL QMETER (T (1+ITEST), T (1001+ITEST), GLOBAL. G (KTEST), QMOLC) 

F ELSE 

QMOLC-O . 0 
F END IF 

M CALL QMETER(T (1001+ITEST) ,T3000, GLOBAL. G(LTEST) , QCONV) 
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M CALL RDTNQS (T3000, T (1001+ITEST) , GLOBAL. G (MTEST) , QRAD) 
M?0 WRITE (NOSER1, 101) (1+ITEST) , LINE. TL (1+ITEST) ,T (1+ITEST) , 
M . T (1001+ITEST) , LINE. PL (1+ITEST) , QCOR, QMOLC, QCONV, QRAD 


F 

M 

M 

M 

M 

M 

M 

M 

M 

M 

M 

M 

F 


F 

M 

M 

M71 

M 


DO 71 I TEST-149, 224 

CALL CONTRN ( ‘PIPE* , 2001+ITEST, JTEST) 

CALL CONTRN ('PIPE* , 3001+ITEST, KTEST) 

CALL CONTRN ( 1 PIPE • , 4001+ITEST, LTEST) 

CALL CONTRN (* PIPE 1 , 5001+ITEST, MTEST) 

CALL QMETER (T (1+ITEST) , T (1001+ITEST) , GLOBAL. G (JTEST) , QCOR) 

IF ( 1+ITEST . GT . 4 1 . AND . 1+ITEST . LT . 1 1 4 ) THEN 

CALL RDTNQS (T (1001+ITEST) ,T (1+ITEST) , GLOBAL.G (JTEST) , QCOR) 

CALL QMETER (T (1+ITEST) , T (1001+ITEST) , GLOBAL.G (KTEST) , QMOLC) 

ELSE IF ( 1 + 1 TEST . GT . 1 3 6 . AND . 1+ITEST . LT . 1 65 ) THEN 

CALL RDTNQS (T (1001+ITEST) , T (1+ITEST) , GLOBAL.G (JTEST) , QCOR) 

CALL QMETER (T (1+ITEST) , T (1001+ITEST) , GLOBAL.G (KTEST) , QMOLC) 

ELSE 

QMOLC-O . 0 
END IF 

CALI QMETER (T (1001+ITEST) ,T3000, GLOBAL.G (LTEST) ,QCONV) 

CALL RDTNQS (T3000,T (1001+ITEST) , GLOBAL.G (MTEST) , QRAD) 

WRITE (NUSER2, 101) (1+ITEST) , LINE. TL (1+ITEST) ,T(1+ITEST) , 

T (1001+ITEST) , LINE. PL (1+ITEST) , QCOR, QMOLC, QCONV, QRAD 


F101 

F 


T5 R SIi 1 ^'w'J X,lPE9 ' 2 ' 1X ' 1PE9 - 2 ' 1X ' 1PE9 - 2 ' 1X ' lPE9 * 2 ' 1X ' lp E9.2 r 

IX, 1PE9 . 2 , IX, 1PE9 . 2, IX, 1PE9 . 2) 


HEADER VARIABLES 1,PIPE 
C CHECK FOR GAS MOL COND 


F 

M 


M 


M10 


DO 10 ITEST-0,72 
TTEST- (T (42+ITEST) +T (1042+ITEST) ) /2 .+460. 

Smx - » • € <sa . 2*is«s - » / . tsti i - a*i . 

CALL CONTRN (' PIPE • , 3042+ITEST, JTEST) 

GLOBAL. G(JTEST) -XK6*XK7*XK8*3600. /778. 

XLAMDA-3.*XK9/XK7*( (PI*1S45. *TTEST) / (8. *32.2*28. ) ) **.5 
K I pl^ L ^ !DA ' LE * ( (XVJID-XPIPOD) /2./12.)) GLOBAL.G (JTEST) -0.0 


C CHECK FOR GAS MOL COND 


M 

M 


M20 


DO 20 I TEST-0, 26 
TTEST- (T (138+ITEST) +T (1138+ITEST) ) /2. +460. 

S.‘:pJ:»}piD/li!u: , ‘ (,32 - 2 ' 154S - 1/< "-* PI,28 -* TTECT,i "- 5 ‘ 1 ' 

CALL CONTRN (’PIPE* , 3138+ITEST, JTEST) 

GLOBAL . G ( JTEST ) -XK6 *XK7 *XK8 * 3 6 0 0 . / 7 7 8 . 

^^^? A “ 3 '* XK9/XK7#( < P1 * 1 S45.*TTEST>/(8.+32.2*28.) ) ** 5 
IF (XLAMDA.LE. ( (XVJID-XPIPOD) /2. /12 . , ) GLOBAL?G( JTEST) - 0.0 


HEADER FLOG I C 0,LINE 

C CONVERT CV TO FK FOR VALVES AND VENTURIES 

FK22-3.0E7*(AF22/VLVCV)**2 $ VALVE 
^H201-3.0E7* (AF201/VLVCV) **2 $ VENTURI 

^H202— 3 . 0E7* (AF202/VLVCV) **2 $ VALVE 

FK222-3.0E7* (AF222/VLVCV) **2 $ VALVE 

FK309— 3 . 0E7* (AF309/VLVCV) **2 $ VENTURI 

FK310-3 . 0E7+ (AF310/VLVCV) **2 $ VALVE 

HEADER OUTPUT CALLS, PIPE 
C — - — 

HEADER FPROP DATA, 7732, SI, 0 . 0 

C 

£ v^« C0MPLETE 0XYGEN TWO-PHASE (FROM 70 TO 120K NEAR 90 K> 
C VAPOR PROPERTIES ARE FOR SATURATED VAPOR * 

v 

RGAS - 8314.34/31.9988 
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oooo 


TCRIT - 154.6 
POUT - 5.04E6 
ST - 0.0132 
TMIN - 70.0 
PGMAX - 1.0E6 
TGMAX - 120.0 


*** ALTERNATE INPOTS FOR SUPERHEATED VAPOR PROPERTIES AT 1 ATM 
THEN OSE THE FOLLOWING LINES INSTEAD: 

AT,VG, 80^6.27E-6, 100°0,'7.68E-6, 120.0, 9.12E-6, 130 . 0, 9 . 85E-6 


155.0. 11. 6E-6, 

400.0. 25. 9E-6, 


170.0. 12. 7E-6, 

500.0. 30. 5E-6, 


140.0. 10. 6E-6, 

300.0. 20. 7E-6, 

700.0. 38. 5E-6 ^ 

AT, KG, 100.0, 9. IE-3, 120.0,0.0109, 130.0,0.0119, 140.0,0.0128 

155.0. 0.0142, 170.0,0.0156, 200.0,0.0182, 300.0,0.0267 

400.0. 0.0342, 500.0,0.0412, 600.0,0.0480, 700.0,0.0544 
C *** END ALTERNATE INPUTS 

C 

C THE NEXT TWO LINES ARE FOR SATURATED VAPOR 


200.0. 14. 7E-6 

600.0. 34. 7E-6 


CAT,VG, 
CAT, KG, 

C 

AT, DOME, 
C ELSE: 
C ELSE: 


80.0. 6.27E-6, 100. 0, 7 . 72E-6, 120.0, 9.49E-6, 

100.0. 9. 3E-3, 120.0,0.0124, 130.0,0.015 


130.0, 1.057E-5 


C ELSE: 
C ELSE: 
C. ELSE: 


54.34, 145.3, 242.37E3 

60.0, 724.9, 238.26E3 

70.0, 6253.0, 230.50E3 

90.19, 101325.0, 213.03E3 

100.0, 0.254E6, 202.57E3 

110.0, 0.534E6, 189.69E3 

120.0, 1.022E6, 173.75E3 

AT, KL, 80.0,0.1623, 100.0,0.1372,120.0,0.1096,130.0,0.0949 

C 140.0,0.0796,150.0,0.0610 , „ a = 

AT,VL, 80. 0, 2. 57E-4, 100.0, 1.56E-4, 120 . 0, 1 .117E-4, 130.0, 9. 6E-5 

C 140.0, 7. 8E-5, 150.0, 5. IE-5 

AT,CPG, 80.0,909.8, 170.0,909.8, 200.0,910.2, 300.0,918.4 

400.0. 941.5, 500.0,970.9, 600.0,1002., 700.0,1031. 

AT, DL, 53.34,1309., 60.0,1282., 65.0,1259., 

75.0. 1214., 80.0,1190., 85.0,1167., 

95.0. 1116., 100.0,1091., 105.0,1064., 

115.0. 1006., 120.0,973.7, 125.0,939.8 

C 130.0,902.5, 135.0,861.3, 140.0,813.0, 

END OF DATA 


70.0. 1238., 

90.0. 1142. 

110.0. 1035. 

145.0. 755.3 
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